home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / COMMUNIC / WWAX10.ZIP / WINGWAX.WAS < prev    next >
Text File  |  1993-03-04  |  3KB  |  109 lines
  1. ;WingWax Script v1.0
  2. ;**********************************************************     
  3.  integer status
  4.  integer cserve
  5.  string  USER_ID
  6.  string  PWD
  7.  string  forum
  8.  string  wingwax_for = "\wingwax.for"
  9.  string  forum_file  = $PWTASKPATH
  10. ;**********************************************************
  11.  PROC MAIN
  12. ;**********************************************************
  13.    call SET_PARAMS
  14.    call PROMPT_FOR_FORUM
  15.    call CALL_CIS
  16.    when target 0 "Connect time =" call logoff
  17.    while 1
  18.    endwhile
  19.  endproc
  20. ;**********************************************************
  21.  PROC LOGOFF
  22. ;**********************************************************
  23.    hangup
  24.    exit
  25.  endproc
  26. ;**********************************************************
  27.  PROC PROMPT_FOR_FORUM
  28. ;**********************************************************
  29.  strcat forum_file wingwax_for
  30.  
  31.  dialogbox     100  50 115 165 2 "WingWax 1.0"
  32.     text        15   5  85  10 center "Forums"
  33.     flistbox    15  15  85  60 forum_file single forum sort
  34.     pushbutton  25  85  65  12 "&Dial"   normal
  35.     pushbutton  25 105  65  12 "&Cancel" cancel
  36.     text        15 130  85  10 center "Silverwing Systems"
  37.     text        15 140  85  10 center "PO Box 383"   
  38.     text        15 150  85  10 center "Tallahassee, FL 32302"
  39.  enddialog
  40.  
  41.     status = $DIALOG
  42.     while status != 10
  43.       if status == 1
  44.          exit
  45.          endif
  46.     status = $DIALOG
  47.     endwhile
  48.  
  49.  endproc
  50. ;**********************************************************
  51.  PROC CALL_CIS
  52. ;**********************************************************
  53.    transmit "ATDT"
  54.    transmit $D_NUMBER
  55.    transmit "^M^J"
  56.  
  57.    waitfor "CONNECT"
  58.    alarm 1
  59.    transmit "^M"
  60.    transmit "^M"
  61.  
  62.    waitfor "HOST NAME:"
  63.    transmit "CIS"
  64.    transmit "^M"
  65.  
  66.    waitfor "User ID:"
  67.    transmit USER_ID
  68.    transmit "^M"
  69.  
  70.    waitfor "Password:"
  71.    transmit PWD
  72.    transmit "^M"
  73.  
  74.    waitfor "!"
  75.    transmit "go " 
  76.    transmit forum
  77.    transmit "^M"
  78.  
  79.    waitfor "Press <CR> !"
  80.    transmit "^M"
  81.  
  82.    endproc
  83. ;**********************************************************
  84.  proc SET_PARAMS
  85. ;**********************************************************
  86.    set baudrate default
  87.    set connection logging on
  88.    set terminal sbpages 10
  89.    set terminal type 5
  90.    set terminal rows 29
  91.    set terminal columns 80
  92.    set autosize window
  93.    set port parity even
  94.    set port databits 7
  95.    set port stopbits 1
  96.    set protocol CISB
  97.  
  98.    dialfind "Compuserve" cserve
  99.    if not found
  100.       errormsg "Can't find CompuServe entry"
  101.       exit
  102.    endif
  103.  
  104.    set dialdir access cserve
  105.    fetch password PWD
  106.    fetch userid   USER_ID
  107.  
  108.  endproc
  109. ;**********************************************************